let keepIfPositive (a : int) = if a > 0 then Some(a) else None